← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Wed Dec 14 15:33:55 2022
Reported on Wed Dec 14 15:40:04 2022

Filename(eval 299)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 104242 statements in 97.8ms
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
258621171.6ms73.0msJSON::Schema::Modern::Document::::_assert__path_to_resource JSON::Schema::Modern::Document::_assert__path_to_resource
11114µs39µsJSON::Schema::Modern::Document::::BEGIN@7.142 JSON::Schema::Modern::Document::BEGIN@7.142
1116µs20µsMethod::Generate::Accessor::_Generated::::BEGIN@24.144Method::Generate::Accessor::_Generated::BEGIN@24.144
1115µs5µsMethod::Generate::Accessor::_Generated::::BEGIN@12.143Method::Generate::Accessor::_Generated::BEGIN@12.143
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1{
222µs my $isa_check_for__5fpath_5fto_5fresource = ${$_[1]->{"\$isa_check_for__5fpath_5fto_5fresource"}};
310s my $default_for__5fpath_5fto_5fresource = ${$_[1]->{"\$default_for__5fpath_5fto_5fresource"}};
410s my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
510s my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
6 package JSON::Schema::Modern::Document;
7258µs264µs
# spent 39µs (14+25) within JSON::Schema::Modern::Document::BEGIN@7.142 which was called: # once (14µs+25µs) by Sub::Quote::_clean_eval at line 7
no warnings 'closure';
# spent 39µs making 1 call to JSON::Schema::Modern::Document::BEGIN@7.142 # spent 25µs making 1 call to warnings::unimport
8
# spent 73.0ms (71.6+1.36) within JSON::Schema::Modern::Document::_assert__path_to_resource which was called 25862 times, avg 3µs/call: # 25862 times (71.6ms+1.36ms) by JSON::Schema::Modern::Document::path_to_resource at line 17 of (eval 298)[Sub/Quote.pm:3], avg 3µs/call
sub _assert__path_to_resource {
9 ($_QUOTED,$_UNQUOTED) if 0;
10# BEGIN quote_sub PRELUDE
11package Method::Generate::Accessor::_Generated;
12
# spent 5µs within Method::Generate::Accessor::_Generated::BEGIN@12.143 which was called: # once (5µs+0s) by Sub::Quote::_clean_eval at line 17
BEGIN {
1310s $^H = 2018;
1410s ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15112µs %^H = (
16 );
17144µs15µs}
# spent 5µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.143
18# END quote_sub PRELUDE
192586258.7msdo {
20 my $val = exists $_[0]->{"_path_to_resource"} ?
21$_[0]->{"_path_to_resource"}
222586223.5ms: do {
231233µs12272µs my $value = $default_for__5fpath_5fto_5fresource->($_[0]);
# spent 272µs making 12 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:90], avg 23µs/call
247581.18ms2961.12ms
# spent 20µs (6+14) within Method::Generate::Accessor::_Generated::BEGIN@24.144 which was called: # once (6µs+14µs) by Sub::Quote::_clean_eval at line 24
do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($value)) and do { my $ok = 1; for my $i (values %{$value}) { ($ok = 0, last) unless do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($i)) and (not grep {my $v = ($i)->{$_};not((/\A(?:canonical_uri|path|specification_version|vocabularies|configs)\z/) or (((!!1)) and ((!defined($v)))))} keys %{$i}) and exists($i->{"canonical_uri"}) and do { package Type::Tiny; Scalar::Util::blessed($i->{"canonical_uri"}) and $i->{"canonical_uri"}->isa(q[Mojo::URL]) } and exists($i->{"path"}) and do { package Type::Tiny; defined($i->{"path"}) and do { ref(\$i->{"path"}) eq 'SCALAR' or ref(\(my $val = $i->{"path"})) eq 'SCALAR' } } and exists($i->{"specification_version"}) and do { package Type::Tiny; defined($i->{"specification_version"}) and do { ref(\$i->{"specification_version"}) eq 'SCALAR' or ref(\(my $val = $i->{"specification_version"})) eq 'SCALAR' } } and exists($i->{"vocabularies"}) and (do { package Type::Tiny; Ref::Util::XS::is_plain_arrayref($i->{"vocabularies"}) } and do { my $ok = 1; for my $i (@{$i->{"vocabularies"}}) { ($ok = 0, last) unless ((do { package Type::Tiny; Types::Standard::_is_class_loaded(do { my $tmp = $i }) }) && (do { local $_ = $i; $_->DOES('JSON::Schema::Modern::Vocabulary') })) }; $ok }) and exists($i->{"configs"}) and do { package Type::Tiny; Ref::Util::XS::is_plain_hashref($i->{"configs"}) } } }; $ok } }) or Type::Tiny::_failed_check($isa_check_for__5fpath_5fto_5fresource, "HashRef[Dict[canonical_uri=>InstanceOf[\"Mojo::URL\"],configs=>HashRef,path=>Str,specification_version=>Str,vocabularies=>ArrayRef[__ANON__],Slurpy[HashRef[Undef]]]]", $value, "attribute_name","_path_to_resource","attribute_step","isa check","mgaca","0","varname","\$self->{\"_path_to_resource\"}"); $value };
# spent 322µs making 98 calls to Types::Standard::__ANON__[(eval 46)[Types/Standard.pm:48]:16], avg 3µs/call # spent 171µs making 14 calls to JSON::Schema::Modern::Vocabulary::Core::DOES, avg 12µs/call # spent 99µs making 14 calls to JSON::Schema::Modern::Vocabulary::Validation::DOES, avg 7µs/call # spent 87µs making 14 calls to JSON::Schema::Modern::Vocabulary::Content::DOES, avg 6µs/call # spent 87µs making 14 calls to JSON::Schema::Modern::Vocabulary::FormatAnnotation::DOES, avg 6µs/call # spent 86µs making 14 calls to JSON::Schema::Modern::Vocabulary::Applicator::DOES, avg 6µs/call # spent 82µs making 14 calls to JSON::Schema::Modern::Vocabulary::Unevaluated::DOES, avg 6µs/call # spent 80µs making 14 calls to JSON::Schema::Modern::Vocabulary::MetaData::DOES, avg 6µs/call # spent 47µs making 70 calls to Type::Tiny::CORE:match, avg 671ns/call # spent 20µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.144 # spent 18µs making 14 calls to UNIVERSAL::isa, avg 1µs/call # spent 14µs making 1 call to warnings::unimport # spent 11µs making 14 calls to Scalar::Util::blessed, avg 786ns/call
251215µs $_[0]->{"_path_to_resource"} = $value
26 }
27;
28258627.29ms exists $_[0]->{"_path_to_resource"}
29 or Carp::croak(q{Attempted to access '}."_path_to_resource".q{' but it is not set});
30258627.01ms $val;
31}
32 }
3311µs $$_UNQUOTED = \&_assert__path_to_resource;
34}
3517µs1;
36
37;
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.